home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sf85.d64 / autodial_all.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  11KB  |  256 lines
  1. 0 PRINTCHR$(14):V5=49152:POKE53280,0:POKE53281,0:PRINT"[147][193][150][213][159][212][156][207][196][201][158][193][149][204][150]/[212][152][197][210][153][205][152] [198]OR [193][204][204]! [154](10/10/84)":PRINT"[194]Y [210]ICHARD [194]RADLEY":PRINT"    [206]OW [196]IALS [198]IVE [205]ODEMS!":PRINT"    [201]NCLUDING:":PRINT"    [195]OMMODORE 1650 [193][213][212][207][205][207][196][197][205]"
  2. 1 PRINT"    [205]ITEY [205]O":PRINT"    [200][197][211][205][207][196][197][205] [201][201]":PRINT"    [215]EST [210]IDGE 6420":PRINT"    [195]OMMODORE 1600 [215]ITH [195]. [194]ONN [195]IRCUIT":IFPEEK(22784)<>76THENPRINT"[204]OADING [205]ACHINE [204]ANGUAGE":LOAD"TERM.64.2.C",8,1
  3. 2 IFPEEK(V5+10)=1ANDPEEK(V5+11)=1THEN17
  4. 3 OPEN50,8,3,"BAUD RATE.D":INPUT#50,BA$:POKEV5,VAL(BA$):CLOSE50:IFBA$=""THENOPEN50,8,3,"@0:BAUD RATE.D,U,W":PRINT#50,"6":CLOSE50:GOTO3
  5. 4 OPEN50,8,3,"MODEM DATA.D,U,R":INPUT#50,V1,V2,V3,V4,V1$:CLOSE50:IFV1$="RICHARD BRADLEY"THEN16
  6. 5 OPEN50,8,15,"I0":CLOSE50
  7. 6 PRINT"[147][215]HICH [205]ODEM [196]O [217]OU [200]AVE?":PRINT"1.  [195]OMMODORE 1650 [193][213][212][207][205][207][196][197][205]":PRINT"2.  [205]ITEY [205]O":PRINT"3.  [200][197][211][205][207][196][197][205] [201][201]":PRINT"4.  [215]EST [210]IDGE 6420":PRINT"5.  [195]OMMODORE 1600 [215]ITH [195]. [194]ONN [195]IRCUIT"
  8. 7 PRINT"[208]ICK 1-5 > ";
  9. 8 GETV2$:IFV2$=""GOTO8
  10. 9 IFV2$="1"THENPRINTV2$:V1=32:V2=32:V3=0:V4=127:GOTO15
  11. 10 IFV2$="2"THENPRINTV2$:V1=36:V2=0:V3=32:V4=219:GOTO15
  12. 11 IFV2$="3"THENPRINTV2$:V1=36:V2=0:V3=32:V4=219:GOTO15
  13. 12 IFV2$="4"THENPRINTV2$:V1=32:V2=32:V3=0:V4=127:GOTO15
  14. 13 IFV2$="5"THENPRINTV2$:V1=32:V2=32:V3=0:V4=247:GOTO15
  15. 14 GOTO6
  16. 15 OPEN50,8,3,"@0:MODEM DATA.D,U,W":PRINT#50,V1:PRINT#50,V2:PRINT#50,V3:PRINT#50,V4:PRINT#50,"RICHARD BRADLEY":CLOSE50
  17. 16 POKEV5+1,V1:POKEV5+2,V2:POKEV5+3,V3:POKEV5+4,V4:POKEV5+10,1:POKEV5+11,1
  18. 17 POKE56,88:POKE644,88:CLR:V5=49152:BB=PEEK(V5):BB$=CHR$(BB):OPEN5,2,0,BB$+CHR$(0):B1=56577:B2=56579:V5=49152:IFPEEK(V5+4)=219THENPOKEB2,PEEK(V5+1):POKEB1,PEEK(V5+2)
  19. 18 RE$=" ":DIMYY$(100):DIMZZ$(100):DIMBB$(100):SE$=" ":MO%=134:R%=0:C$="0123456789ABCDEF":RP=2:RS=0:WP=RP:WS=RS:POKE24575,RP:POKE24574,RS+96:POKE24573,WP:POKE24572,WS+96:PA(0)=10
  20. 19 PA(1)=6:PA(2)=2:ML=22784:PRINTCHR$(14):POKE24569,0:OPEN1,8,15:POKE556,0:POKE552,0:POKE553,1:DN$="":GOTO21
  21. 20 GET#5,A$,A$:SYSML+0:CLOSE11:POKE24569,0:TM=0:GOTO17
  22. 21 PRINT"[147][198]UNCTION:":PRINT"1 - [212]ERMINAL [205]ODE":PRINT"2 - [210]ECEIVE PROGRAM":PRINT"3 - [212]RANSMIT PROGRAM":PRINT"4 - [208]RINT [196]ISK [198]ILE":PRINT"5 - [195]HANGE [195]OLOURS":PRINT"6 - [196]IAL [193] [194][194][211]":PRINT"7 - [195]REATE #'S [198]ILE"
  23. 22 PRINT"8 - [195]ATALOG [193] [196]ISK, [210]EAD [197]RROR [195]HANNEL,":PRINT"    [211]END [196]ISK [195]OMMAND":PRINT"9 - [209]UIT":PRINT"[198]1- [211]ET [194]AUD [210]ATE":PRINT"[198]2- [195]HECK [193]LARM [210]OUTINE":PRINT"[198]3- [198]IND # [207]F [194]LOCKS [198]REE":PRINT"[198]4- [204]OCK [207]R [213]NLOCK [193] [198]ILE"
  24. 23 PRINT"[198]5- [195]HANGE [205]ODEM [196]EFAULTS"
  25. 24 GETA$:IFA$="[133]"THEN213
  26. 25 IFA$="[137]"THENHC$=" ":GOTO153
  27. 26 IFA$="[134]"THENGOSUB220:GOTO21
  28. 27 IFA$="[138]"THENGOTO229
  29. 28 IFA$="[135]"THENGOTO6
  30. 29 IFA$<CHR$(49)ORA$>CHR$(57)THEN24
  31. 30 ONVAL(A$)GOTO20,59,87,35,116,126,193,254,107:GOTO20
  32. 31 CLOSE11:PRINT"[206]AME OF [196]ISK [198]ILE":PRINT"[196]EFAULT IS [196]RIVE 0?":PRINT">";:GOSUB108:IFB$=""THEN21
  33. 32 IFMID$(B$,2,1)<>":"THENB$="1:"+B$
  34. 33 OPEN11,8,11,"@"+B$+",S,W":GOSUB115:IFESTHENPRINTES$:GOTO31
  35. 34 POKE24569,1:GOTO21
  36. 35 PRINT"[206]AME OF [198]ILE?":PRINT">";:GOSUB108:IFB$=""THEN21
  37. 36 CLOSE11:OPEN11,8,11,B$:GOSUB115:IFESTHENPRINTES$:GOTO35
  38. 37 PRINT"[193]SCII OR [195]BM [212]YPE [207]UTPUT?":PRINT">";:POKE555,0
  39. 38 GETA$:IFA$=""THEN38
  40. 39 IFA$=CHR$(13)THEN21
  41. 40 IFA$="A"THENPOKE555,0:GOTO42
  42. 41 IFA$<>"C"THEN38
  43. 42 PRINTCHR$(ASC(A$)OR128)"":SYSML+3:CLOSE11:GOTO21
  44. 43 GOSUB50:A=PEEK(553):A=A+1:IFA=2THENA=0
  45. 44 POKE553,A:GOTO137
  46. 45 GOSUB50:PA=PA+1:IFPA=3THENPA=0
  47. 46 POKE660,(PA(PA)ORDU)*16+1:GOTO137
  48. 47 GOSUB50:DU=DU+1:IFDU=2THENDU=0
  49. 48 POKE660,(PA(PA)ORDU)*16+1:GOTO137
  50. 49 A$=" [146]":GOTO51
  51. 50 A$=" "
  52. 51 PRINT"   ";LEFT$(DN$,PEEK(553));A$:PRINT"   ";LEFT$(DN$,PA);A$:PRINT"   ";LEFT$(DN$,DU);A$:RETURN:A$=" [146]":GOTO53
  53. 52 A$=" "
  54. 53 PRINT"   ";LEFT$(DN$,BR);A$:PRINT"   ";LEFT$(DN$,SB);A$:PRINT"   ";LEFT$(DN$,WL);A$:RETURN:GOSUB52:BR=BR+1:IFBR=3THENBR=0
  55. 54 POKE659,((SB*8)OR(2*WL)OR1)*16+(BR+6):GOTO19
  56. 55 GOSUB52:SB=SB+1:IFSB=2THENSB=0
  57. 56 POKE659,((SB*8)OR(2*WL)OR1)*16+(BR+6):GOTO19
  58. 57 GOSUB52:WL=WL+1:IFWL=2THENWL=0
  59. 58 POKE659,((SB*8)OR(2*WL)OR1)*16+(BR+6):GOTO19
  60. 59 :
  61. 60 PRINT"[206]AME OF [198]ILE?":PRINT"[196]EFAULT DRIVE IS #0":PRINT">";:GOSUB108:S$=B$:IFS$=""THENPRINT#5,"A";:GOTO20
  62. 61 IFMID$(S$,2,1)<>":"THENS$="0:"+S$
  63. 62 GOSUB78:S$="@"+S$+T$+",W":CLOSE2:OPEN2,8,2,S$:GOSUB115:IFESTHENPRINTES$:CLOSE2:GOTO60
  64. 63 PRINT#5,"TTTTTTTTTT";
  65. 64 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN64
  66. 65 SYSML+18:IFSTTHEN69
  67. 66 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN66
  68. 67 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12:IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN70
  69. 68 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO64
  70. 69 CLOSE2:PRINT#5,"SSSSSSSSSS";:PRINT:GOTO153
  71. 70 PRINT#5,"";:PRINT":";:GOTO64
  72. 71 PRINT"[212]YPE OF [198]ILE:":PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT">";
  73. 72 GETB$:IFB$=""THEN72
  74. 73 TY$=B$:FL=0:IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":RETURN
  75. 74 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":RETURN
  76. 75 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":RETURN
  77. 76 IFB$=CHR$(13)THENFL=1:RETURN
  78. 77 GOTO72
  79. 78 PRINT#5,"UUUUUUUUUU";
  80. 79 GET#5,A$:IFST<>0THEN79
  81. 80 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO84
  82. 81 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO84
  83. 82 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO84
  84. 83 GOTO79
  85. 84 PRINT"[198]ILE [212]YPE: "A$""
  86. 85 GET#5,A$:IFST=0THEN85
  87. 86 RETURN
  88. 87 :
  89. 88 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT">";:GOSUB108:S$=B$
  90. 89 IFS$=""THENPRINT#5,"A";:GOTO20
  91. 90 GOSUB71:IFFLTHENS$="":GOTO89
  92. 91 CLOSE2:OPEN2,8,2,S$+T$:GOSUB115:IFESTHENPRINTES$:CLOSE2:GOTO88
  93. 92 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT
  94. 93 GET#5,A$:IFST<>0ORA$<>"U"THEN93
  95. 94 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN94
  96. 95 SYSML+9:CK=ST
  97. 96 FORX=1TO400:NEXT
  98. 97 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN97
  99. 98 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT:PRINT#5,"ZZZZZZZZZZZZZZZ";
  100. 99 IFPEEK(669)<>PEEK(670)THEN99
  101. 100 GET#5,A$:IFST<>0THEN100
  102. 101 IFA$=""THENPRINT":";:GOTO96
  103. 102 IFA$<>""THEN100
  104. 103 IFCK=0THENPRINT"-";:GOTO94
  105. 104 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN104
  106. 105 CLOSE2:GOTO153
  107. 106 SYSML+21:A$=CHR$(PEEK(634)):RETURN
  108. 107 PRINT"[147][209]UIT?  [193]RE [217]OU [211]URE?":GOTO209
  109. 108 PRINT" [146][157]";:B$=""
  110. 109 GETA$:IFA$=""THEN109
  111. 110 IFA$=CHR$(20)THEN113
  112. 111 IFA$=CHR$(13)THENPRINT" ":RETURN
  113. 112 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO109
  114. 113 IFLEN(B$)=0THEN109
  115. 114 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO109
  116. 115 ::INPUT#1,E1$,E2$,E3$,E4$:ES$=E1$+","+E2$+","+E3$+","+E4$:ES=VAL(E1$):RETURN:POKE22784,0:RUN
  117. 116 F1=0:F2=0:F3=0
  118. 117 PRINT"[147][198]1=[194]ORDER COLOUR"CHR$(13)"[198]3=[194]ACKGROUND COLOUR":PRINT"[198]5=CURSOR COLOUR"CHR$(13)"[198]7=[194]ACK TO MAIN MENU":IFF1>15THENF1=0
  119. 118 IFF2>15THENF2=0
  120. 119 IFF3>15THENF3=0
  121. 120 GETYU$:IFYU$=""THEN120
  122. 121 IFYU$="[133]"THENPOKE53280,F1:F1=F1+1
  123. 122 IFYU$="[134]"THENPOKE53281,F2:F2=F2+1
  124. 123 IFYU$="[135]"THENPOKE646,F3:F3=F3+1
  125. 124 IFYU$="[136]"THEN21
  126. 125 GOTO117
  127. 126 RU=0:GOSUB160:DD=1:IFHH=0GOTO21
  128. 127 B1=56577:B2=56579:X1=0:IFRU<>1GOTO130
  129. 128 D$=ZZ$(DD):IFD$="@"THENDD=DD+1:D$=ZZ$(DD):IFZZ$(DD)="@"GOTO128
  130. 129 DD=DD+1:IFDD>ZZTHENDD=1:GOTO128
  131. 130 POKEB2,PEEK(V5+1):POKEB1,PEEK(V5+3):FORX=1TO1000:NEXTX:PRINT"[147]":PRINT:PRINT:PRINT"[196]IALING!":PRINT"[212]O [211]TOP [196]IALING [208]RESS [193]NY [203]EY [193]ND [215]AIT[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":POKEB1,PEEK(V5+2):T=100
  132. 131 T=T-1:IFT<>0GOTO131
  133. 132 D=LEN(D$):FORX=1TOD:N$=MID$(D$,X,1):II=0:IFN$<CHR$(48)ORN$>CHR$(57)THENII=1
  134. 133 IFN$="%"THENGOSUB198
  135. 134 PRINTN$;:IFII=1GOTO137
  136. 135 N=VAL(N$):IFN=0THENN=10
  137. 136 GOSUB146
  138. 137 NEXTX:PRINT:PRINT"[196]IAL [195]OMPLETE [204]ISTENING [198]OR [195]ARRIER":FORX=1TO800:IFPEEK(B1)<>PEEK(V5+4)THENX=3001:GOSUB201:IFSDTHENX1=1
  139. 138 GETFF$:IFFF$<>""GOTO21
  140. 139 NEXTX:IFX1<>1THEN127
  141. 140 IFRU<>1GOTO153
  142. 141 OPEN25,8,3,"0:CHECKER.D":INPUT#25,YY$:IFYY$="NO"THENCLOSE25:GOTO145
  143. 142 YY=1:YY$(YY)=YY$
  144. 143 YY=YY+1:INPUT#25,YY$(YY):IFYY$(YY)="@"THENYY=YY-1:CLOSE25:GOTO145
  145. 144 GOTO143
  146. 145 OPEN25,8,3,"@0:CHECKER.D,U,W":PRINT#25,D$:FORX=1TOYY:PRINT#25,YY$(X):NEXTX:PRINT#25,"@":CLOSE25:GOTO153
  147. 146 FORN1=1TON:POKEB1,PEEK(V5+3):T=3
  148. 147 T=T-1:IFT<>0THEN147
  149. 148 POKEB1,PEEK(V5+2):T=3
  150. 149 T=T-1:IFT<>0THEN149
  151. 150 NEXTN1:T=8
  152. 151 T=T-1:IFT<>0THEN151
  153. 152 RETURN:GOTO20
  154. 153 S=54272:FORL=0TO24:POKES+L,0:NEXT:POKES+1,100:POKES+5,10:POKES+15,255:POKES+24,15
  155. 154 POKES+4,21:GETCH$
  156. 155 IFCH$=""GOTO158
  157. 156 FORL=STOS+24:POKEL,0:NEXTL:PRINT"[147]";:IFHC$=" "THENHC$="":GOTO21
  158. 157 GOTO20
  159. 158 FORT=1TO1000:NEXT:POKES+4,20:FORT=1TO1000:NEXT:IFHC$<>""THENCH$=" ":GOTO155
  160. 159 GOTO154
  161. 160 PRINT"[147]":PRINT"[206]UMBER [198]ROM ([203])EYBOARD OR ([196])ISK":GETKK$
  162. 161 GETKK$:IFKK$=""GOTO161
  163. 162 IFKK$="K"THENGOSUB190:RETURN
  164. 163 IFKK$="D"THENGOTO165
  165. 164 IFKK$<>"D"THENGOTO160
  166. 165 PRINT"[147]":ZZ=1
  167. 166 NF$="":INPUT"[198]ILE [206]AME ";NF$:PRINT"[195]LEAR [213]SED #'S [198]ILE ([217] OR [206])":IFNF$=""GOTO21
  168. 167 GETYN$:IFYN$=""GOTO167
  169. 168 IFYN$="N"GOTO171
  170. 169 IFYN$="Y"THENOPEN25,8,3,"@0:CHECKER.D,U,W":PRINT#25,"NO":CLOSE25:GOTO171
  171. 170 IFYN$<>"Y"THENGOTO167
  172. 171 PRINT"[147]":OPEN25,8,3,"0:CHECKER.D":INPUT#25,YY$:IFYY$="NO"THENCLOSE25:PP=1
  173. 172 CLOSE25:OPEN15,8,3,""+NF$
  174. 173 INPUT#15,ZZ$(ZZ):IFZZ$(ZZ)=""THENCLOSE15:GOTO166
  175. 174 IFZZ$(ZZ)="@"THENCLOSE15:GOTO176
  176. 175 ZZ=ZZ+1:GOTO173
  177. 176 IFPP=1GOTO180
  178. 177 OPEN25,8,3,"0:CHECKER.D":YY=1
  179. 178 INPUT#25,YY$(YY):IFYY$(YY)="@"THENCLOSE25:YY=YY-1:GOTO180
  180. 179 YY=YY+1:GOTO178
  181. 180 FORX=1TOZZ-1:PRINTX;" ";ZZ$(X):NEXTX:PRINT:PRINT:FG=0
  182. 181 PRINT"[208]ICK [193] [206]UMBER ([193] FOR ALL)":INPUT"[206][#] = [206]UMBER [206]OT [212]O [194]E [196]IALLED";DD$:IFDD$=""GOTO21
  183. 182 IFDD$="A"THENRU=1:GOSUB187:RETURN
  184. 183 IFLEFT$(DD$,1)="N"THENZZ$(VAL(MID$(DD$,2,1)))="@":FG=1:GOTO181
  185. 184 IFVAL(DD$)=0ORVAL(DD$)>ZZ-1GOTO181
  186. 185 IFFG<>0THENPRINT"[145][145][145]":GOTO181
  187. 186 HH=1:D$=ZZ$(VAL(DD$)):RETURN
  188. 187 HH=0:FORUU=1TOYY:FORII=1TOZZ:IFZZ$(II)=YY$(UU)THENZZ$(II)="@"
  189. 188 NEXTII:NEXTUU:FORII=1TOZZ:IFZZ$(II)<>"@"THENII=ZZ+1:HH=1
  190. 189 NEXTII:RETURN
  191. 190 PRINT"[147]":OO$="":INPUT"# [212]O [196]IAL (%=5 [211]EC. [196]ELAY)";OO$:IFOO$=""GOTO21
  192. 191 IFLEN(OO$)<7GOTO190
  193. 192 D$=OO$:HH=1:RETURN
  194. 193 PRINT"[147]":FORBB=1TO100:BB$(BB)="":NEXTBB:NF$="":INPUT"[198]ILE [206]AME";NF$:IFNF$=""GOTO21
  195. 194 BB=1
  196. 195 PRINT"[206]UMBER [212]O [196]IAL ([210][212][206] [212]O [215]RITE [198]ILE)":INPUTBB$(BB):IFBB$(BB)=""GOTO197
  197. 196 BB=BB+1:PRINT"[145]":GOTO195
  198. 197 OPEN40,8,3,"@0:"+NF$+",S,W":FORVV=1TOBB-1:PRINT#40,BB$(VV):NEXTVV:PRINT#40,"@":CLOSE40:GOTO21
  199. 198 TY=300:TZ=TI
  200. 199 IFTI>TY+TZTHENRETURN
  201. 200 GOTO199
  202. 201 SD=0:SA=TI
  203. 202 IFTI-SA<60GOTO204
  204. 203 GOTO207
  205. 204 IFPEEK(B1)<>PEEK(V5+4)THENSD=1
  206. 205 IFPEEK(B1)=PEEK(V5+4)THENSD=0:GOTO207
  207. 206 GOTO202
  208. 207 IFSD=0THENPRINT"[194]USY!"
  209. 208 RETURN
  210. 209 GETA$:IFA$=""GOTO209
  211. 210 IFA$<>"Y"ANDA$<>"[217]"THEN212
  212. 211 POKE22784,0:SYS64738
  213. 212 GOTO21
  214. 213 PRINT"[147]":PRINT" [194]AUD [210]ATE                        [197]NTER":PRINT" [163][163][163][163][163][163][163][163][163]                        [163][163][163][163][163]":PRINT"    50                              1  ":PRINT"    75                              2  "
  215. 214 PRINT"   110                              3  ":PRINT" 134.5                              4  ":PRINT"   150                              5  ":PRINT"   300                              6  "
  216. 215 PRINT"   600                              7  ":PRINT"  1200                              8  ":PRINT"[208]ICK A [206]UMBER (1-8) > ";
  217. 216 GETAB$:IFAB$=""GOTO216
  218. 217 IFAB$=CHR$(13)THEN21
  219. 218 IFAB$<CHR$(49)ORAB$>CHR$(56)THEN216
  220. 219 PRINTAB$:OPEN50,8,3,"@0:BAUD RATE.D,U,W":PRINT#50,AB$:POKEV5,VAL(AB$):CLOSE50:GOTO17
  221. 220 PRINT"[147][215]HICH [196]RIVE? (0 OR 1)"
  222. 221 GETWD$:IFWD$=""GOTO221
  223. 222 IFWD$=CHR$(13)THEN21
  224. 223 IFWD$<CHR$(48)ORWD$>CHR$(49)THEN221
  225. 224 OPEN15,8,15:D=8:PRINT#15,"I"+WD$:OPEN50,D,0,"$"+D$+":!#$%&":FORD=1TO34:GET#50,X$:NEXTD:GET#50,X$:X=LEN(X$):IFXTHENX=ASC(X$)
  226. 225 GET#50,X$:Y=LEN(X$):IFYTHENY=ASC(X$)
  227. 226 L=X+Y*256:PRINT"(";L;"BLOCKS FREE )":CLOSE50:CLOSE15:PRINT"[208]RESS [193]NY [203]EY [212]O [195]ONTINUE"
  228. 227 GETAK$:IFAK$=""GOTO227
  229. 228 RETURN
  230. 229 PRINT"[147]":DI=18:AB=19:INPUT"L[146]OCK OR U[146]NLOCK  *[157][157][157]";C$:C$=LEFT$(C$,1):AK$=CHR$(34):IFC$<>"L"ANDC$<>"U"THEN21
  231. 230 PRINT"[145]";TAB(16);:OS=0:IFC$="L"THENAC$="LOCK":PRINTAC$:OS=64:GOTO232
  232. 231 AC$="UNLOCK":PRINTAC$
  233. 232 O1=64-OS
  234. 233 INPUT"WHICH FILE  *[157][157][157]";F$:IFF$="*"THENPRINT"[145][145]";:GOTO233
  235. 234 D=0
  236. 235 INPUT"TYPE OF FILE  PRG[157][157][157][157][157]";TY$:TY=128-(TY$="SEQ")-2*(TY$="PRG")-3*(TY$="USR")-4*(TY$="REL"):IFTY=128THENPRINT"[145]";:GOTO235
  237. 236 OPEN15,8,15:NL$=CHR$(0):N$=F$:OPEN50,8,2,"#":GET#50,A$:PRINT"LOOK FOR "TY$" FILE "AK$F$AK$:FORS=1TOAB:PRINT#15,"U1:";2;0;DI;S:FORI=0TO7:PRINT#15,"B-P:";2;(2+32*I):GET#50,FT$:IFFT$=""THENFT$=NL$
  238. 237 FT=ASC(FT$):IFFT<>TY+O1THEN240
  239. 238 H$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":F$=LEFT$(F$+H$,16):PRINT#15,"B-P:";2;(5+32*I):W$="":FORQ=1TO16:GET#50,A$:IFA$=""THENA$=NL$
  240. 239 W$=W$+A$:NEXTQ:IFF$=W$THEN241
  241. 240 NEXTI:NEXTS:PRINT""TY$" FILE "AK$N$AK$" NOT FOUND[146]":GOTO242
  242. 241 PRINT"FOUND: "AK$N$AK$" ,"AC$:I1=I:S1=S:PRINT#15,"B-R:";2;0;DI;S1:PRINT#15,"B-P:";2;(2+32*I1):PRINT#50,CHR$(TY+OS);:PRINT#15,"U2:";2;0;DI;S1
  243. 242 CLOSE50:CLOSE15:PRINT"[208]RESS [193]NY [203]EY [212]O [195]ONTINUE"
  244. 243 GETAK$:IFAK$=""GOTO243
  245. 244 GOTO21
  246. 245 PRINT"[208]RESS '[205]' [198]OR [205]ENU, [193]NY [207]THER [198]OR [205]ORE"
  247. 246 GETAA$:IFAA$=""GOTO246
  248. 247 IFAA$="M"ORAA$="[205]"GOTO17
  249. 248 GOTO254
  250. 249 INPUT#15,E,E$,T,S:PRINTE;"[157], ";E$;",";T;"[157],";S:RETURN
  251. 250 OPEN15,8,15:GOSUB249:CLOSE15:GOTO245
  252. 251 POKEBS,34:POKEBP,1:INPUT"DISK COMMAND";DC$:OPEN15,8,15:PRINT#15,DC$:PRINT:GOSUB249:CLOSE15:GOTO245
  253. 252 INPUT"FILENAME/TYPE PATTERN  *[157][157][157]";FP$:INPUT"DRIVE #  0[157][157][157]";DN$:CR$=CHR$(13):PRINT:PRINT"PRESS 'RETURN' TO QUIT,":PRINT"ANY OTHER KEY TO PAUSE OR CONTINUE":PRINT:OPEN1,8,0,"$"+DN$+":"+FP$:GET#1,X$,X$,X$,X$:FORG1=-1TO0:PRINT:GET#1,L$,H$
  254. 253 PRINT256*ASC(H$+CHR$(0))+ASC(L$+CHR$(0));:FORG2=-1TO0:GET#1,X$:PRINTX$;:G2=(X$>""):NEXT:GET#1,X$,X$:GETP1$:FORP2=-1TO0:GETP2$:P2=(P1$<>""ANDP1$<>CR$ANDP2$=""):NEXT:G1=X$>""ANDP1$<>CR$ANDP2$<>CR$:NEXT:CLOSE1:PRINT:GOTO245
  255. 254 PRINT"[147]1. READ ERROR CHANNEL":PRINT"2. SEND DISK COMMAND":PRINT"3. READ DISK DIRECTORY":CLR:MT=(PEEK(1024)=0):BS=631+8*MT:BP=198+40*MT:PRINT:PRINT"WHICH? ";:FORG1=-1TO0:GETC$:G1=(C$<"1"ORC$>"3"):NEXT:PRINTC$:PRINT:ONVAL(C$)GOTO250,251,252
  256.